home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00003_Script_go stuff cast 3 < prev    next >
Text File  |  1995-11-21  |  2KB  |  83 lines
  1. on muGo whar
  2.   global gMusicLabel
  3.   put whar into gMusicLabel
  4.   addToRetrace
  5.   go to "Black Frame"
  6.   go frame gMusicLabel of movie "Music"
  7. end muGo
  8.  
  9. on toGo whar
  10.   global gTourLabel, gCurLabelProp, gTourTimeSS, gTourTimeMW, gTourTimeCL, gTourTimeEM
  11.   
  12.   put whar into gTourLabel
  13.   addToRetrace
  14.   
  15.   do "set gTourTime" & char 1 to 2 of whar & " = void"
  16.   
  17.   set gCurLabelProp = ""
  18.   go to "Black Frame"
  19.   go movie "Tour"
  20. end toGo
  21.  
  22. on moGo whar
  23.   global gMovieLabel, gCurLabelProp, gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP
  24.   
  25.   put whar into gMovieLabel
  26.   addToRetrace
  27.   
  28.   if whar = "O" then
  29.     do "set gMovieTimeCO = void"
  30.     do "set gMovieTimeCR = void"
  31.     do "set gMovieTimeFO = void"
  32.     do "set gMovieTimeSP = void"
  33.   else
  34.     do "set gMovieTime" & char 1 to 2 of whar & " = void"
  35.   end if
  36.   
  37.   set gCurLabelProp = ""
  38.   go to "Black Frame"
  39.   go movie "Movies"
  40. end toGo
  41.  
  42. on poGo PrevOrNext
  43.   global gLastPoem
  44.   put char 2 of gLastPoem into thisPage
  45.   if PrevOrNext = "Next" then
  46.     if thisPage = "9" then
  47.       put "1" into pageNum
  48.     else put string(integer(thisPage)+1) into pageNum
  49.   else
  50.     if thisPage = "1" then
  51.       put "9" into pageNum
  52.     else put string(integer(thisPage)-1) into pageNum
  53.   end if
  54.   put "P"&pageNum into gLastPoem
  55.   go label(gLastPoem)
  56.   --put pageNum into word 1 of field "page"
  57. end poGo
  58.  
  59. on dump what
  60.   --  do "put ""e&string(value(what))"e&"&&""e&"=""e&what"e
  61. end
  62.  
  63. on mygo whar
  64.   global gPreloadList, gPreloadIndex, gRetraceCount, gTOCRetraceChan
  65.   -- use for this movie only
  66.   
  67.   --put ">>>mygo (cast 3) whar = " & whar
  68.   
  69.   --  put getOne(gPreloadIndex, whar) into myIndex
  70.   addToRetrace
  71.   
  72.   set the visibility of sprite gTOCRetraceChan = (gRetraceCount > 0)
  73.   --put ">>> retrace button is: " & (gRetraceCount > 0)
  74.   
  75.   go to whar
  76.   --  cursor 4
  77.   --  set the preLoadEventAbort = 0
  78.   --  loadNGo(getAt(gPreloadList, myIndex))
  79.   --  set the preLoadEventAbort = 1
  80.   --  cursor -1
  81.   --  
  82. end mygo
  83.